home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 February / LiquidLibrary 2005 February - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / pdfopt.ps < prev    next >
Text File  |  2003-01-03  |  33KB  |  1,116 lines
  1. %    Copyright (C) 2000, 2001 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % PDF linearizer ("optimizer").
  8.  
  9. .currentglobal true .setglobal
  10. /pdfoptdict 200 dict def
  11. pdfoptdict begin
  12.  
  13. % This linearizer is designed for simplicity, not for performance.
  14. % See the main program (the last procedure in the file) for comments
  15. % describing the main processing sequence.
  16.  
  17. % ---------------- Utilities ---------------- %
  18.  
  19. % ------ Data structures ------ %
  20.  
  21. % Distinguish dictionaries, arrays, and everything else.
  22. /ifdaelse {        % <obj> <dictproc> <arrayproc> <otherproc> ifdaelse -
  23.   3 index type dup /dicttype eq {
  24.     pop pop pop
  25.   } {
  26.     dup /arraytype ne exch /packedarraytype ne and {
  27.       exch
  28.     } if pop exch pop
  29.   } ifelse exec
  30. } bind def
  31.  
  32. % Implement dynamically growable arrays using a dictionary.
  33. /darray {        % <size> darray <darray>
  34.   dict
  35. } bind def
  36. /dadd {            % <darray> <value> dadd -
  37.   1 index length exch put
  38. } bind def
  39. /daforall {        % <darray> <proc> daforall -
  40.   /exch cvx /get cvx 3 -1 roll /exec cvx 5 packedarray cvx
  41.   0 1 2 index 0 get length 1 sub 4 -1 roll for
  42. } bind def
  43. /dacontents {        % <darray> dacontents <array>
  44.   [ exch { } daforall ]
  45. } bind def
  46. /dacontstring {        % <darray> dacontstring <string>
  47.   0 1 index { exch pop length add } forall string
  48.   dup /NullEncode filter
  49.             % Stack: darray str filter
  50.   3 -1 roll { 1 index exch writestring } daforall
  51.   closefile
  52. } bind def
  53.  
  54. % Force an object, mapping it if it is a reference.
  55. /omforcenew {        % <obj> omforce <obj'> <notseen>
  56.   dup oforce 2 copy eq { pop true } { exch 0 get omapnew exch pop } ifelse
  57. } bind def
  58. /omforce {        % <obj> omforce <obj'>
  59.   omforcenew pop
  60. } bind def
  61. /omget {        % <dict|array> <key> omget <obj>
  62.   get omforce
  63. } bind def
  64. % Visit an entire tree.
  65. /omvisit {        % <obj> omvisit -
  66.   omforcenew {
  67.     { { omvisit omvisit } forall }
  68.     { { omvisit } forall }
  69.     { pop }
  70.     ifdaelse
  71.   } {
  72.     pop
  73.   } ifelse
  74. } bind def
  75. % Visit a tree, stopping at references to Page objects.
  76. % (This is only needed for the OpenAction in the Catalog.)
  77. /omvisitnopage {    % <obj> omvisitnopage -
  78.   dup oforce dup type /dicttype eq {
  79.     /Type .knownget { /Page eq } { false } ifelse
  80.   } {
  81.     pop false
  82.   } ifelse {
  83.     pop        % Page reference
  84.   } {
  85.     omforcenew {
  86.       { { omvisitnopage omvisitnopage } forall }
  87.       { { omvisitnopage } forall }
  88.       { pop }
  89.       ifdaelse
  90.     } {
  91.       pop
  92.     } ifelse
  93.   } ifelse
  94. } bind def
  95.  
  96. % Collect the list of currently mapped object numbers, in order.
  97. /omapped {        % - omapped <obj#s>
  98.   RMap length array RMap {
  99.     2 index 3 1 roll 1 sub exch put
  100.   } forall
  101. } bind def
  102.  
  103. % Collect the list of object numbers passed to omap by a procedure.
  104. /visited {        % <proc> visited <obj#s>
  105.   false currentomap 2 .execn
  106.   omapped exch setomap
  107. } bind def
  108.  
  109. % ------ Output ------ %
  110.  
  111. % Provide a framework for closure-based streams.
  112. .currentglobal false .setglobal
  113. userdict /clostreams 20 dict put    % stream -> [data endproc]
  114. .setglobal
  115. % Create a closure-based stream.
  116. /clostream {        % <data> <proc> <endproc> clostream <stream>
  117.   2 index 3 -1 roll /exec load 3 packedarray cvx
  118.   /NullEncode filter
  119.         % Stack: data endproc stream
  120.   clostreams 1 index 5 -2 roll 2 array astore put
  121. } bind def
  122. % Close a closure-based stream.
  123. /closend {        % <stream> closend <result>
  124.   dup closefile clostreams exch
  125.   2 copy get 3 1 roll undef aload pop exec
  126. } bind def
  127.  
  128. % Implement in-memory output streams.
  129. /msproc {        % <data> <more> <accum> msproc <scratch>
  130.   3 -1 roll dadd { 100 string } { () } ifelse
  131. } bind def
  132. /mstream {        % - mstream <mstream>
  133.   10 darray {msproc} {dacontstring} clostream
  134. } bind def
  135. /mcontents {        % <mstream> mcontents <string>
  136.   closend
  137. } bind def
  138.  
  139. % Implement a stream that only keeps track of its position.
  140. % (All streams should do this, but the PLRM doesn't require it.)
  141. /posbuf 100 string def
  142. /posproc {        % <data> <more> <accum> posproc <scratch>
  143.   0 2 copy get 5 -1 roll length add put
  144.   pop //posbuf
  145. } bind def
  146. /postream {        % - postream <postream>
  147.   [0] {posproc} {0 get} clostream
  148. } bind def
  149. /poslength {        % <postream> poslength <pos>
  150.   closend
  151. } bind def
  152.  
  153. % Implement streams with variable-bit-width data.
  154. % Note that these are dictionary objects, not stream objects.
  155. /bitstream {        % <stream> bitstream <bstream>
  156.   4 dict begin /S exch def /N 8 def /B 0 def
  157.   currentdict end
  158. } bind def
  159. /bitwrite {        % <bstream> <value> <width> bitwrite -
  160.   PDEBUG { ( ) print 1 index =only (:) print dup = } if
  161.   3 -1 roll begin
  162.   N exch sub dup 0 ge {
  163.     /N exch def N bitshift B add
  164.   } {
  165.     2 copy bitshift B add S exch write
  166.             % Stack: value -left
  167.     { 8 add dup 0 ge { exit } if
  168.       2 copy bitshift 255 and S exch write
  169.     } loop
  170.     /N 1 index def bitshift 255 and
  171.   } ifelse /B exch def
  172.   end
  173. } bind def
  174. /bitflush {        % <bstream> bitflush -
  175.   begin N 8 ne { S B write /B 0 def /N 8 def } if end
  176. } bind def
  177.  
  178. % Capture OFile output on the temporary file, in memory, or just as a length.
  179. /totemp {        % <proc> totemp <start> <end>
  180.   TFile fileposition OFile
  181.   /OFile TFile def 3 .execn
  182.   /OFile exch def
  183.   TFile fileposition
  184. } bind def
  185. /tomemory {        % <proc> tomemory <string>
  186.   OFile /OFile mstream def 2 .execn
  187.   OFile mcontents exch /OFile exch def
  188. } bind def
  189. /tolength {        % <proc> tolength <string>
  190.   OFile /OFile postream def 2 .execn
  191.   OFile poslength exch /OFile exch def
  192. } bind def
  193.  
  194. % Copy a range of bytes from TFile to OFile.
  195. /copyrange {        % <start> <end> copybytes -
  196.   TFile 2 index setfileposition
  197.   exch sub 1024 string exch {
  198.         % Stack: buf left
  199.     2 copy 1 index length .min 0 exch getinterval
  200.     TFile exch readstring pop OFile exch writestring
  201.     1 index length sub dup 0 le { exit } if
  202.   } loop pop pop
  203. } bind def
  204.  
  205. % Pad with blanks to a specified position.
  206. /padto {        % <pos> padto -
  207.   OFile fileposition sub
  208.   dup 0 lt {
  209.     (ERROR: file position incorrect by ) print =
  210.     /padto cvx /rangecheck signalerror
  211.   } {
  212.     { ( ) ows } repeat
  213.   } ifelse
  214. } bind def
  215.  
  216. % ---------------- Read objects into memory ---------------- %
  217.  
  218. /touch {        % <object> touch -
  219.   {
  220.     { touch touch } forall
  221.   } {
  222.     dup xcheck {
  223.         % Executable array, must be an indirect object.
  224.       dup 0 get resolved? { pop pop } { oforce touch } ifelse
  225.     } {
  226.       { touch } forall
  227.     } ifelse
  228.   } {
  229.     pop
  230.   } ifdaelse
  231. } bind def
  232.  
  233. % ---------------- Replace references with referents ---------------- %
  234.  
  235. /replaceable? {        % <value> replaceable? <bool>
  236.   dup type /integertype eq exch xcheck not and
  237. } bind def
  238. /replacement {        % <obj|ref> replacement <obj'>
  239.   dup oforce dup replaceable? { exch } if pop
  240. } bind def
  241.  
  242. /replacerefs {        % <object> replacerefs <object>
  243.   {
  244.     dup {
  245.       2 index 2 index undef
  246.       exch replacement exch replacement
  247.       2 index 3 1 roll put
  248.     } forall
  249.   } {
  250.     0 1 2 index length 1 sub {
  251.       1 index exch 2 copy get replacement put
  252.     } for
  253.   } {
  254.   } ifdaelse
  255. } bind def
  256.  
  257. /replaceReferences {    % - replaceReferences -
  258.   Objects { replacerefs pop } lforall
  259.         % Delete replaced objects.
  260.   0 1 Objects llength 1 sub {
  261.     Objects 1 index lget replaceable? {
  262.       PDEBUG { (Deleting ) print dup = } if
  263.       Generations 1 index 0 lput
  264.     } if pop
  265.   } for
  266. } bind def
  267.  
  268. % ---------------- Create new objects ---------------- %
  269.  
  270. /createObjects {    % [<obj>...] createObjects <firstobj#>
  271.   Objects llength dup
  272.   dup 3 index length add growPDFobjects
  273.         % Stack: objects objn objn
  274.   3 1 roll exch {
  275.     Objects 2 index 3 -1 roll lput
  276.     Generations 1 index 1 lput
  277.     1 add
  278.   } forall pop
  279. } bind def
  280.  
  281. % ---------------- Propagate attributes ---------------- %
  282.  
  283. /nopropattrs <<
  284.     % Never propagate these.
  285.   /Type dup /Kids dup /Count dup /Parent dup
  286.     % Handle Resources specially.
  287.   /Resources dup
  288. >> def
  289.  
  290. % Merge Resources.
  291. /mergeres {        % <fromdict> <todict> mergeres -
  292.         % Values in todict take priority over fromdict.
  293.   1 index /Resources .knownget {
  294.     1 index /Resources .knownget {
  295.         % Stack: fromdict todict fromres tores
  296.       exch oforce exch oforce
  297.         % todict's Resources may be shared, so make a copy.
  298.       dup length dict .copydict
  299.       exch {
  300.         % Stack: fromdict todict tores' fromkey fromvalue
  301.     2 index 2 index knownoget {
  302.         % Stack: fromdict todict tores' fromkey fromvalue tovalue
  303.       exch oforce exch
  304.         % ProcSet is an array, other types are dictionaries.
  305.       dup type /dicttype eq {
  306.         % Dictionary, not ProcSet.
  307.         exch dup length 2 index length add dict .copydict .copydict
  308.       } {
  309.         % Array or packed array, ProcSet.
  310.         % Use dictionaries to do the merge.
  311.         dup length 2 index length add dict begin
  312.         exch { dup def } forall { dup def } forall
  313.         mark currentdict end { pop } forall .packtomark
  314.       } ifelse
  315.     } if
  316.     2 index 3 1 roll put
  317.       } forall
  318.     } if /Resources exch put pop
  319.   } {
  320.     pop pop
  321.   } ifelse
  322. } bind def
  323.  
  324. % Merge attributes other than Resources.
  325. /mergeattrs {        % <fromdict> <todict> mergeattrs <fromdict> <todict>
  326.         % Values in todict take priority over fromdict.
  327.   1 index {
  328.         % Stack: fromdict todict fromkey fromvalue
  329.     //nopropattrs 2 index known {
  330.       pop pop
  331.     } {
  332.       2 index 2 index known { pop pop } { 2 index 3 1 roll put } ifelse
  333.     } ifelse
  334.   } forall
  335. } bind def
  336.  
  337. % Propagate attributes to a subtree.
  338. /proppage {        % <attrs> <subtree> proppage -
  339.         % We should be able to tell when we reach a leaf
  340.         % by finding a Type unequal to /Pages.  Unfortunately,
  341.         % some files distributed by Adobe lack the Type key
  342.         % in some of the Pages nodes!  Instead, we check for Kids.
  343.   dup /Kids knownoget {
  344.         % Accumulate inherited values.
  345.     3 1 roll
  346.         % Stack: kids attrs pagesnode
  347.     dup length dict .copydict mergeattrs
  348.     dup 3 1 roll mergeres
  349.     exch { oforce 1 index exch proppage } forall pop
  350.   } {
  351.         % Merge inherited values into the leaf.
  352.     mergeattrs mergeres
  353.   } ifelse
  354. } bind def
  355.  
  356. % Propagate attributes to all pages.
  357. /propagateAttributes {    % - propagateAttributes -
  358.   0 dict Trailer /Root oget /Pages oget proppage
  359. } bind def
  360.  
  361. % ---------------- Identify document-level objects ---------------- %
  362.  
  363. /identifyDocumentObjects {    % - identifyDocumentObjects <obj#s>
  364.   {
  365.     Trailer /Root omget
  366.     dup /PageMode .knownget { omvisit } if
  367.     % Don't allow omvisit to trace references to Page objects.
  368.     dup /OpenAction .knownget { omvisitnopage } if
  369.     Trailer /Encrypt .knownget { omvisit } if
  370.     dup /Threads .knownget {
  371.       omforce { omforce } forall
  372.     } if
  373.     dup /AcroForm .knownget { omvisit } if
  374.     pop
  375.   } visited
  376. } bind def
  377.  
  378. % ---------------- Identify the objects of each page ---------------- %
  379.  
  380. /identifyfont {        % <fontref> identifyfont -
  381.   omforce {
  382.     exch /FontDescriptor eq {
  383.       omforce dup /Flags .knownget { 32 and 0 ne } { false } ifelse
  384.       exch {
  385.     exch dup dup /FontFile eq exch /FontFile2 eq or
  386.     exch /FontFile3 eq or 2 index and {
  387.       fontfiles exch dadd
  388.     } {
  389.       omvisit
  390.     } ifelse
  391.       } forall pop
  392.     } {
  393.       omvisit
  394.     } ifelse
  395.   } forall
  396. } bind def
  397.  
  398. /identifyPageObjects {    % <extra> <page#> identifyPageObjects <obj#s>
  399.   pdffindpageref
  400.   4 dict begin
  401.   /images 10 darray def
  402.   /fontfiles 10 darray def
  403.   {
  404.     omforce
  405.         % Stack: extra page
  406.         % Visit any extra objects if applicable.
  407.     exch omvisit
  408.         % Visit Annots, if any.
  409.         % We don't try to defer the drawing information.
  410.     dup /Annots .knownget { omvisit } if
  411.         % Visit beads.
  412.     dup /B .knownget { omvisit } if
  413.         % Visit resources dictionaries.
  414.     dup /Resources .knownget {
  415.       omforce dup {
  416.         % Visit the first-level Resource dictionaries.
  417.     omforce pop pop
  418.       } forall {
  419.         % Visit the resources themselves.
  420.         % Skip Image XObjects, and FontFile streams if the
  421.         % FontDescriptor Flags have bit 6 set.
  422.         % We don't try to visit the resources in the order in which
  423.         % the Contents stream(s) reference(s) them.
  424.     exch dup /XObject eq {
  425.       pop oforce {
  426.         dup oforce /Subtype get /Image eq {
  427.           images exch dadd
  428.         } {
  429.           omvisit
  430.         } ifelse pop
  431.       } forall
  432.     } {
  433.       /Font eq {
  434.         oforce { identifyfont pop } forall
  435.       } {
  436.         oforce omvisit
  437.       } ifelse
  438.     } ifelse
  439.       } forall
  440.     } if
  441.         % Visit the Contents stream(s).
  442.     dup /Contents .knownget { omvisit } if
  443.         % Visit Image XObjects.  We don't try to visit them in
  444.         % reference order.
  445.     images { omvisit } daforall
  446.         % Visit FontFile streams.  We don't try to visit them in
  447.         % reference order.
  448.     fontfiles { omvisit } daforall
  449.     pop
  450.   } visited end
  451. } bind def
  452.  
  453. % Identify the objects of the first page.
  454. /identifyFirstPageObjects {    % -identifyFirstPageObjects <obj#s>
  455.   Trailer /Root oget null
  456.   1 index /PageMode knownoget {
  457.     /UseOutlines eq {
  458.       1 index /Outlines knownoget { exch pop } if
  459.     } if
  460.   } if exch pop
  461.   1 identifyPageObjects
  462. } bind def
  463.  
  464. % Identify the non-shared objects of the other pages, and the shared objects.
  465. /identifyOtherPageObjects {    % - identifyOtherPageObjects [<pageobj#s> ...]
  466.                 %   <sharedobj#s>
  467.   4 dict begin
  468.   /marks lstring Objects llength lgrowto def
  469.         % Mark document-level and first page objectsw.
  470.   [CatalogNs FirstPageNs] {
  471.     { marks exch 255 lput } forall
  472.   } forall
  473.         % Collect objects of other pages and identify sharing.
  474.   [ 2 1 pdfpagecount { null exch identifyPageObjects } for ]
  475.   dup {
  476.     { marks exch 2 copy lget 1 add 254 min lput } forall
  477.   } forall
  478.   [ exch {
  479.     [ exch {
  480.       marks 1 index lget 1 ne { pop } if
  481.     } forall ]
  482.   } forall ]
  483.   [ 1 1 marks llength 1 sub {
  484.     marks 1 index lget dup 1 le exch 255 eq or { pop } if
  485.   } for ]
  486.   end
  487. } bind def
  488.  
  489. % Identify objects not associated with any page.
  490. /identifyNonPageObjects {    % - identifyNonPageObjects <obj#s>
  491.   4 dict begin
  492.   /marks lstring Objects llength lgrowto def
  493.   [[[LPDictN PHSN] CatalogNs FirstPageNs SharedNs] OtherPageNs] {
  494.     { { marks exch 1 lput } forall } forall
  495.   } forall
  496.     %****** PUT THESE IN A REASONABLE ORDER ******
  497.   [ 1 1 Objects llength 1 sub {
  498.     marks 1 index lget 0 eq {
  499.       Generations 1 index lget 0 eq { pop } if
  500.     } {
  501.       pop
  502.     } ifelse
  503.   } for ]
  504. } bind def
  505.  
  506. % ---------------- Assign object numbers ---------------- %
  507.  
  508. % Assign object numbers to all objects that will be copied.
  509. % Return the first (translated) object number in the First Page xref table.
  510. /assignObjectNumbers {        % - assignObjectNumbers -
  511.   OtherPageNs { { omap pop } forall } forall
  512.   SharedNs { omap pop } forall
  513.   NonPageNs { omap pop } forall
  514.         % Assign object numbers for the First Page xref table last.
  515.   LPDictN omap    % don't pop, this is the return value
  516.   CatalogNs { omap pop } forall
  517.   FirstPageNs { omap pop } forall
  518.   PHSN omap pop
  519. } bind def
  520.  
  521. % ---------------- Create the LPDict ---------------- %
  522.  
  523. % Create the contents of the LPDict.
  524. /createLPDict {            % <phsstart> <phsend> <firstpageend>
  525.                 %   <xref0start> <filelength> createLPDict -
  526.   LPDict
  527.   dup /Linearized 1 put
  528.   dup /L 4 -1 roll put        % filelength
  529.   dup /T 4 -1 roll put        % xref0start
  530.   dup /E 4 -1 roll put        % firstpageend
  531.   dup /H 5 -2 roll 1 index sub 2 array astore put    % phsstart, end-start
  532.   dup /O 1 pdffindpageref 0 get omap put
  533.   /N pdfpagecount put
  534. } bind def
  535.  
  536. % ---------------- Adjust object positions ---------------- %
  537.  
  538. /adjustObjectPositions {    % <boundary> <deltabelow> <deltaabove>
  539.                 %   adjustObjectPositions -
  540.     % Objects fall into 4 categories: LPDict, PHS, Catalog, and others.
  541.     % We handle the first two as special cases.
  542.   XRef {
  543.         % Stack: bdy below above key loc
  544.     dup 5 index ge { 2 } { 3 } ifelse index add
  545.     XRef 3 1 roll put
  546.   } forall pop pop pop
  547.   XRef LPDictN omap HeaderLength put
  548.   XRef PHSN omap PHSStart put
  549. } bind def
  550.  
  551. % ---------------- Write the output file ---------------- %
  552.  
  553. % Write objects identified by object number.
  554. /writeobjn {        % <obj#> writeobjn -
  555.   Generations 1 index lget pdfwriteobj
  556. } bind def
  557. /writeobjns {        % <obj#s> writeobjns -
  558.   { writeobjn } forall
  559. } bind def
  560.  
  561. % Write a part of the output file.
  562. /writePart {        % <proc> <label> writePart -
  563.   PDEBUG {
  564.     dup print ( start=) print
  565.     OFile { .fileposition } stopped { pop (???) } if =
  566.     2 .execn
  567.     print ( end=) print
  568.     OFile { .fileposition } stopped { pop (???) } if =
  569.   } {
  570.     pop exec
  571.   } ifelse
  572. } bind def
  573.  
  574. % Write the header.
  575. /writePart1 {        % - writePart1 -
  576.   {
  577.     pdfwriteheader
  578.   } (part1) writePart
  579. } bind def
  580.  
  581. % Write the linearization parameters dictionary.
  582. /writePart2 {        % - writePart2 -
  583.   {
  584.     LPDictN writeobjn
  585.   } (part2) writePart
  586. } bind def
  587.  
  588. % Write the First Page xref table and trailer.
  589. % Free variables: FirstPageXN.
  590. /writePart3 {        % <xrefstart> writePart3 -
  591.   {
  592.     FirstPageXN NObjects 1 add 1 index sub pdfwritexref
  593.     Trailer dup length 1 add dict copy
  594.     dup /Size NObjects 1 add put
  595.     dup /Prev 4 -1 roll put
  596.     pdfwritetrailer
  597.     0 pdfwritestartxref
  598.   } (part3) writePart
  599. } bind def
  600.  
  601. % Write the Catalog and other required document-level objects.
  602. % Free variables: CatalogNs.
  603. /writePart4 {        % - writePart4 -
  604.   {
  605.     CatalogNs writeobjns
  606.   } (part4) writePart
  607. } bind def
  608.  
  609. % Write the Primary Hint Stream.
  610. /writePart5 {        % - writePart5 -
  611.   {
  612.     PHSN writeobjn
  613.   } (part5) writePart
  614. } bind def
  615.  
  616. % Write the First Page's objects.
  617. % Free variables: FirstPageNs.
  618. /writePart6 {        % - writePart6 -
  619.   {
  620.     FirstPageNs writeobjns
  621.   } (part6) writePart
  622. } bind def
  623.  
  624. % Write the objects of other pages (Page + non-shared objects).
  625. % Free variables: OtherPageNs.
  626. /writePart7 {        % - writePart7 <lengths>
  627.   {
  628.     [ OtherPageNs {
  629.       OFile fileposition exch
  630.       writeobjns OFile fileposition exch sub
  631.     } forall ]
  632.   } (part7) writePart
  633. } bind def
  634.  
  635. % Write the shared objects of other pages.
  636. % Free variables: SharedNs.
  637. /writePart8 {        % - writePart8 -
  638.   {
  639.     SharedNs writeobjns
  640.   } (part8) writePart
  641. } bind def
  642.  
  643. % Write the other objects not associated with pages.
  644. % Free variables: NonPageNs.
  645. /writePart9 {        % - writePart9 -
  646.   {
  647.     NonPageNs writeobjns
  648.   } (part9) writePart
  649. } bind def
  650.  
  651. % Write the main xref table and trailer.
  652. % Free variables: FirstPageXN.
  653. /writePart11xref {    % writePart11 -
  654.   {
  655.     0 FirstPageXN pdfwritexref
  656.   } (part11xref) writePart
  657. } bind def
  658. /writePart11rest {    % <part3start> writePart11rest -
  659.   {
  660.     << /Size FirstPageXN >> pdfwritetrailer
  661.     pdfwritestartxref
  662.   } (part11rest) writePart
  663. } bind def
  664.  
  665. % ---------------- Write hint tables ---------------- %
  666.  
  667. /bitsneeded {        % <maxvalue> bitsneeded <#bits>
  668.   0 exch { dup 0 eq { pop exit } if exch 1 add exch 2 idiv } loop
  669. } bind def
  670.  
  671. % Find the start and end of objects in the output.
  672. /omstart {        % <obj#> omstart <pos>
  673.   PDEBUG { (start\() print dup =only } if
  674.   omap
  675.   PDEBUG { (=>) print dup =only } if
  676.   XRef exch get
  677.   PDEBUG { (\) = ) print dup = } if
  678. } bind def
  679. /omend {        % <obj#> omend <pos>
  680.     % The end of an object is the start of the next object.
  681.     % The caller must be sure that this object is not the last one
  682.     % in part 9.
  683.   PDEBUG { (end\() print dup =only } if
  684.   omap
  685.   PDEBUG { (=>) print dup =only } if
  686.   1 add
  687.     % Check that the requested object wasn't the last one in part 6:
  688.     % the next object in the output file is the first in part 7.
  689.   PHSN omap 1 index eq { pop 1 } if
  690.   XRef exch get
  691.   PDEBUG { (\) = ) print dup = } if
  692. } bind def
  693. /omlength {        % <obj#> omlength <length>
  694.   dup omend exch omstart sub
  695. } bind def
  696.  
  697. % Find the Contents of a page.
  698. /contentsobjects {    % <pagedict> contentsobjects <firstobj#> <lastobj#>
  699.   /Contents get
  700.   dup oforce dup type /dicttype eq {
  701.     pop dup
  702.   } {
  703.     dup 0 get exch dup length 1 sub get
  704.   } ifelse
  705.   exch 0 get exch 0 get
  706. } bind def
  707. /contentsstart {    % <pagedict> contentsstart <pos>
  708.   contentsobjects pop omstart
  709. } bind def
  710. /contentslength {    % <pagedict> contentslength <length>
  711.   contentsobjects omend exch omstart sub
  712. } bind def
  713.  
  714.  
  715. /writePageOffsetHints {
  716.   PDEBUG { /writePageOffsetHints == } if
  717.   20 dict begin
  718.   /bits OFile bitstream def
  719.   /bwn { bits 3 1 roll bitwrite } def
  720.  
  721.     % Calculate least length of a page.
  722.   FirstPageLength OtherPageLengths { .min } forall
  723.   /minpl exch def
  724.     % Calculate least contents length.
  725.   FirstPageNs 0 get Objects exch lget contentslength
  726.   OtherPageNs { 0 get Objects exch lget contentslength .min } forall
  727.   /mincl exch def
  728.  
  729.     % The Adobe documentation says that all versions of Acrobat
  730.     % require item 8 (mincl) to be zero.  Patch this here.
  731.   /mincl 0 def
  732.  
  733.     % Calculate bits needed to represent greatest page length.
  734.   FirstPageLength OtherPageLengths { .max } forall
  735.   minpl sub bitsneeded /maxplbits exch def
  736.     % Calculate bits needed to represent the greatest Contents length.
  737.   FirstPageNs 0 get Objects exch lget contentslength
  738.   OtherPageNs { 0 get Objects exch lget contentslength .max } forall
  739.   mincl sub bitsneeded /maxclbits exch def
  740.  
  741.     % Per Adobe documentation, Acrobat requires that item 5 (maxplbits)
  742.     % be equal to item 9 (maxclbits).  Set both to the max of the two.
  743.   maxplbits maxclbits .max /maxplbits 1 index def /maxclbits exch def
  744.  
  745.         % 1: Least number of objects in a page:
  746.   FirstPageNs length OtherPageNs { length .min } forall
  747.   /minnop 1 index def 32 bwn
  748.         % 2: Location of first page's Page object:
  749.   FirstPageNs 0 get omap XRef exch get 32 bwn
  750.         % 3: Bits needed to represent greatest # of objects in a page:
  751.   FirstPageNs length OtherPageNs { length .max } forall
  752.   minnop sub bitsneeded /maxnopbits 1 index def 16 bwn
  753.         % 4: Least length of a page:
  754.   minpl 32 bwn
  755.         % 5: Bits needed to represent the greatest page length:
  756.   maxplbits 16 bwn
  757.         % 6: Least start of Contents offset:
  758.   0        % (Acrobat requires that this be 0.)
  759.   /minsco 1 index def 32 bwn
  760.         % 7: Bits needed to represent the greatest start of Contents
  761.         % offset:
  762.   0        % (Acrobat ignores this.)
  763.   /maxscobits 1 index def 16 bwn
  764.         % 8: Least contents length:
  765.   mincl 32 bwn
  766.         % 9: Bits needed to represent the greatest Contents length:
  767.   maxclbits 16 bwn
  768.         % 10: Bits needed to represent the greatest number of Shared
  769.   0        % Object references (we don't report any):
  770.   /maxsorbits 1 index def 16 bwn
  771.         % 11: Bits needed to identify a Shared Object (we don't
  772.   0        % report any):
  773.   /sobits 1 index def 16 bwn
  774.         % 12: Bits needed to represent numerator of fraction (only
  775.   0        % needed for Shared Object references, which we don't report):
  776.   /numfbits 1 index def 16 bwn
  777.         % 13: Denominator of fraction (only needed for Shared Object
  778.         % references, which we don't report):
  779.   255    % arbitrary
  780.   /denf 1 index def 16 bwn
  781.  
  782.         % Number of objects in pages:
  783.   FirstPageNs length minnop sub maxnopbits bwn
  784.   OtherPageNs {
  785.     length minnop sub maxnopbits bwn
  786.   } forall
  787.  
  788.         % Total length of pages in bytes;
  789.   FirstPageLength minpl sub maxplbits bwn
  790.   OtherPageLengths {
  791.     minpl sub maxplbits bwn
  792.   } forall
  793.  
  794.         % Number of shared objects referenced from page:
  795.         % (Currently we don't report this.)
  796.   OtherPageNs length 1 add { 0 maxsorbits bwn } repeat
  797.  
  798.         % Since there are no shared object references,
  799.         % the next two sections are empty.
  800.  
  801.         % Contents offsets:
  802.   [FirstPageNs OtherPageNs aload pop] {
  803.     0 get Objects exch lget contentsstart minsco sub maxscobits bwn
  804.   } forall
  805.  
  806.         % Contents lengths:
  807.   [FirstPageNs OtherPageNs aload pop] {
  808.     0 get Objects exch lget contentslength mincl sub maxclbits bwn
  809.   } forall
  810.  
  811.   bits bitflush end
  812. } bind def
  813.  
  814. /writeSharedObjectHints {
  815.   PDEBUG { /writeSharedObjectHints == } if
  816.   20 dict begin
  817.   /bits OFile bitstream def
  818.   /bwn { bits 3 1 roll bitwrite } def
  819.  
  820.         % Currently we use the Shared Object hint table only for
  821.         % the objects in the first page, which are all treated as
  822.         % "shared" objects.
  823.  
  824.         % Object number of first object in Shared Objects section
  825.         % (not currently used):
  826.   0 32 bwn
  827.         % Location of first object in Shared Objects section
  828.         % (not currently used): If there are no shared objects,
  829.         % Acrobat sets this to the location of linearization
  830.         % parameters object (the very first object).
  831.   { pdfwriteheader } tomemory length 32 bwn
  832.         % Number of Shared Object entries for first page:
  833.   FirstPageNs length 32 bwn
  834.         % Number of Shared Object entries for Shared Objects
  835.         % section (not currently used):
  836.   FirstPageNs length 32 bwn
  837.         % Bits needed to represent the greatest number of objects
  838.         % in a shared object group (always 0, because all groups
  839.         % have only 1 object):
  840.   0 16 bwn
  841.         % Least length of a Shared Object Group in bytes:
  842.   16#7fffffff FirstPageNs { omlength .min } forall
  843.   /minsol 1 index def 32 bwn
  844.         % Bits needed to represent the greatest length of a
  845.         % Shared Object Group:
  846.   0 FirstPageNs { omlength .max } forall
  847.   minsol sub bitsneeded
  848.   /maxsolbits 1 index def 16 bwn
  849.  
  850.         % Lengths of shared object groups:
  851.   FirstPageNs { omlength minsol sub maxsolbits bwn } forall
  852.  
  853.         % MD5 flag:
  854.   0 1 bwn
  855.  
  856.   bits bitflush end
  857. } bind def
  858.  
  859. % ---------------- Main program ---------------- %
  860.  
  861. /tmpprefix (/tmp/) def
  862.  
  863. /pdfOptimize {        % <infile> <outfile> pdfOptimize -
  864.   realtime 3 1 roll
  865.   exch pdfdict begin pdfopenfile dup begin
  866.   40 dict begin
  867.   /IDict exch def
  868.   /OFile exch def
  869.   /starttime exch def
  870.   /now {
  871.     QUIET { pop } { print (, t = ) print realtime starttime sub = flush } ifelse
  872.   } def
  873.   omapinit
  874.   
  875.     % Create and open a temporary file.
  876.  
  877.   null (w) .tempfile /TFile exch def /TFileName exch def
  878.   .setsafe
  879.  
  880.     % Read all objects into memory.
  881.  
  882.   Trailer touch
  883.   (Read objects) now
  884.  
  885.     % Replace indirect references to numbers.  This is needed
  886.     % for the Length of streams, and doesn't hurt anything else.
  887.  
  888.   replaceReferences
  889.   (Replaced references) now
  890.  
  891.     % Create the two new objects: the linearization parameter
  892.     % dictionary, and the Primary Hint Stream.
  893.  
  894.   /LPDict 10 dict def
  895.   /PHS 10 dict cvx def        % executable = stream
  896.   [LPDict PHS] createObjects
  897.   /LPDictN 1 index def 1 add
  898.   /PHSN exch def
  899.   PDEBUG { << /LPDictN LPDictN /PHSN PHSN >> === } if
  900.  
  901.     % Count the number of objects in the output.
  902.  
  903.   0 0 1 Objects llength 1 sub {
  904.     Generations exch lget 0 ne { 1 add } if
  905.   } for
  906.   /NObjects exch def
  907.   QUIET not { NObjects =only ( objects total) = flush } if
  908.  
  909.     % Propagate inherited attributes down the page tree.
  910.  
  911.   propagateAttributes
  912.   (Propagated attributes) now
  913.  
  914.     % Identify the document-level objects (part 4).
  915.  
  916.   identifyDocumentObjects /CatalogNs exch def
  917.   QUIET not { CatalogNs === flush } if
  918.   (Identified Catalog) now
  919.  
  920.       % Identify the first page's objects (part 6),
  921.     % including the Outlines tree if appropriate.
  922.  
  923.   pdfopencache
  924.   /FirstPageNs identifyFirstPageObjects def
  925.   QUIET not { FirstPageNs === flush } if
  926.   (Identified first page) now
  927.  
  928.     % Identify shared vs. non-shared objects for remaining pages
  929.     % (parts 7 and 8).
  930.  
  931.   identifyOtherPageObjects
  932.   /SharedNs exch def
  933.   /OtherPageNs exch def
  934.   QUIET not { OtherPageNs === flush SharedNs === flush } if
  935.   (Identified other pages) now
  936.  
  937.     % Identify objects not associated with any page (part 9).
  938.  
  939.   /NonPageNs identifyNonPageObjects def
  940.   QUIET not { NonPageNs === flush } if
  941.   (Identified non-pages) now
  942.  
  943.     % Assign final object numbers to all the objects.
  944.     % (The omap is currently empty.)
  945.  
  946.   /FirstPageXN assignObjectNumbers def
  947.   (Assigned objects #s) now
  948.  
  949.     % Write the document-level objects (part 4).
  950.  
  951.   { writePart4 } totemp
  952.   /CatalogTempEnd exch def /CatalogTempStart exch def
  953.   (Wrote Catalog) now
  954.  
  955.     % Write the first page's objects (part 6).
  956.  
  957.   { writePart6 } totemp
  958.   /FirstPageTempEnd exch def /FirstPageTempStart exch def
  959.   (Wrote first page) now
  960.  
  961.     % Write the non-shared objects for other pages (part 7).
  962.  
  963.   { writePart7 /OtherPageLengths exch def } totemp
  964.   /OtherPageTempEnd exch def /OtherPageTempStart exch def
  965.   (Wrote other pages) now
  966.  
  967.     % Write the shared objects for other pages (part 8).
  968.  
  969.   { writePart8 } totemp
  970.   /SharedTempEnd exch def /SharedTempStart exch def
  971.   (Wrote shared objects) now
  972.  
  973.     % Write the objects not associated with pages (part 9).
  974.  
  975.   { writePart9 } totemp
  976.   /NonPageTempEnd exch def /NonPageTempStart exch def
  977.  
  978.     % Compute conservative lengths of parts 2,3,5,11 of the output.
  979.     % It's OK for these to be too large, but not too small.
  980.  
  981.   % Make dummy XRef entres for LPDict and PHS.
  982.   XRef LPDictN omap 0 put
  983.   XRef PHSN omap 0 put
  984.  
  985.   /HeaderLength {    % this is exact
  986.     writePart1            % part 1
  987.   } tolength def
  988.   /CatalogLength    % this is exact
  989.     CatalogTempEnd CatalogTempStart sub def    % part 4
  990.   /FirstPageLength    % this is exact
  991.     FirstPageTempEnd FirstPageTempStart sub def    % part 6
  992.   /OtherObjectsLength    % this is exact
  993.     NonPageTempEnd OtherPageTempStart sub def    % parts 7,8,9
  994.   /ObjectsLength    % this is exact
  995.     CatalogLength FirstPageLength add OtherObjectsLength add def
  996.   /XrefLength {            % part 11
  997.     % The LPDict must end within the first 1024 bytes,
  998.     % so the start of the FirstPage xref table can't exceed 1024.
  999.     writePart11xref 1024 writePart11rest
  1000.   } tolength def
  1001.   /NominalFileLength     % Make a generous allowance for parts 2,3,5.
  1002.     HeaderLength ObjectsLength 3 mul add 10000 add 99999 max def
  1003.   /FirstPageXrefLength {    % part 3
  1004.     NominalFileLength writePart3
  1005.   } tolength def
  1006.   /LPDictLength {        % part 2
  1007.     NominalFileLength dup 2 mul 2 copy add 1 index dup createLPDict writePart2
  1008.   } tolength def
  1009.  
  1010.     % Compute a few additional values from the above.
  1011.  
  1012.   /XrefBeginLength {
  1013.     (xref\n0 ) ows
  1014.     OFile FirstPageXN write=
  1015.   } tolength def
  1016.   HeaderLength LPDictLength add
  1017.   /FirstPageXrefStart 1 index def
  1018.   FirstPageXrefLength add
  1019.   /CatalogStart 1 index def
  1020.   CatalogLength add        % phsstart
  1021.   /PHSStart exch def
  1022.  
  1023.     % Adjust the object positions ignoring PHS.
  1024.     % (Writing the PHS needs these.)
  1025.  
  1026.   0 0 CatalogStart CatalogTempStart sub adjustObjectPositions
  1027.   % Make a temporary XRef entry for the PHS, for the benefit of omend.
  1028.   XRef PHSN omap CatalogStart put
  1029.   (Adjusted positions) now
  1030.  
  1031.     % Construct the hint tables (part 5).
  1032.  
  1033.   { writePageOffsetHints } totemp
  1034.   pop /PHSTempStart exch def
  1035.   { writeSharedObjectHints } totemp
  1036.   exch PHSTempStart sub PHS /S 3 -1 roll put
  1037.   PHSTempStart sub /PHSTempLength exch def
  1038.   (Wrote hints) now
  1039.  
  1040.   % Prepare to read TFile.
  1041.   TFile closefile
  1042.   /TFile TFileName (r) file def
  1043.  
  1044.   PHS
  1045.     dup /File TFile put
  1046.     dup /FilePosition PHSTempStart put
  1047.     dup /Length PHSTempLength put
  1048.   pop
  1049.   /PHSLength { writePart5 } tolength def
  1050.  
  1051.     % Construct the linearization parameter dictionary (part 2).
  1052.  
  1053.   PHSStart
  1054.   dup PHSLength add        % phsend
  1055.   /FirstPageStart 1 index def
  1056.   dup FirstPageLength add    % firstpageend
  1057.   dup OtherObjectsLength add
  1058.   /XrefStart 1 index def
  1059.   XrefBeginLength add        % xref0start
  1060.   dup XrefBeginLength sub XrefLength add    % fileend
  1061.     % Because of a bug, Acrobat Reader doesn't recognize any file
  1062.     % shorter than 1K as linearized.  Patch this here.
  1063.   1024 .max
  1064.   /FileLength 1 index def
  1065.   createLPDict
  1066.  
  1067.     % Adjust the object positions again, taking the PHS into account.
  1068.  
  1069.   PHSStart 0 PHSLength adjustObjectPositions
  1070.   (Readjusted positions) now
  1071.  
  1072.     % Finally, write the output file.
  1073.  
  1074.   writePart1
  1075.   writePart2
  1076.   FirstPageXrefStart padto
  1077.   XrefStart writePart3
  1078.   CatalogStart padto
  1079.   CatalogTempStart CatalogTempEnd copyrange    % part 4
  1080.   writePart5
  1081.   FirstPageStart padto
  1082.   FirstPageTempStart NonPageTempEnd copyrange    % parts 6,7,8,9
  1083.   % No Overflow Hint Stream (part 10).
  1084.   XrefStart padto
  1085.   writePart11xref
  1086.   { FirstPageXrefStart writePart11rest } tomemory
  1087.   FileLength 1 index length sub padto ows
  1088.   (Wrote output file) now
  1089.  
  1090.     % Wrap up.
  1091.  
  1092.   TFile closefile TFileName deletefile
  1093.   end        % temporary dict
  1094.   end        % IDict
  1095. } bind def
  1096.  
  1097. end            % pdfoptdict
  1098. .setglobal
  1099.  
  1100. % Check for command line arguments.
  1101. [ shellarguments {
  1102.   ] dup length 2 eq {
  1103.     % Load the pdfwrite utilities if necessary.
  1104.     /omapinit where { pop } { (pdfwrite.ps) runlibfile } ifelse
  1105.     save exch
  1106.     aload pop exch (r) file exch (w) file
  1107.     3000000 setvmthreshold
  1108.     pdfoptdict begin pdfOptimize end
  1109.     restore
  1110.   } {
  1111.     (Usage: gs -dNODISPLAY -- pdfopt.ps input.pdf output.pdf) = flush quit
  1112.   } ifelse
  1113. } {
  1114.   pop
  1115. } ifelse
  1116.